home *** CD-ROM | disk | FTP | other *** search
/ Graphics Plus / Graphics Plus.iso / general / modelers / geomview / source.lha / Geomview / tools / lisp2c < prev    next >
Text File  |  1993-11-10  |  8KB  |  287 lines
  1. #! /bin/sh
  2.  
  3. ########################################################################
  4.  
  5. # usage: lisp2c [-cprefix prefix] -o OUTFILE [ FILE1 ... ]
  6. #
  7. # writes OUTFILE.c and OUTFILE.h, if results would differ from
  8. # existing files of those names.
  9. #
  10. # If -cprefix is specified, uses "prefix_" as the prefix for C
  11. # function names.  Default prefix is "l_".
  12. #
  13. #  This script scans the input files, or standard input if no input
  14. #  files are specified, generating a C interface to each lisp function
  15. #  defined via the "DEFINE" and "LDECLARE" macros (defined in
  16. #  geomview's "lispext.h" file).  It assumes usage of the following
  17. #  form in the input files:
  18. #  
  19. #    DEFINE(name, ltype,
  20. #        docstring)
  21. #    {
  22. #      <local variable declarations and initializations>
  23. #      LDECLARE(("lname", LBEGIN,
  24. #            <argspec>,
  25. #            ...,
  26. #            LEND));
  27. #       ...
  28. #      return L...;
  29. #    }
  30. #  
  31. #  Specifically:
  32. #  
  33. #
  34. #  1. The first line of the call to DEFINE must contain exactly, in
  35. #     this order:
  36. #      1.1. the word DEFINE
  37. #      1.2. a left paren
  38. #      1.3. a name which is a valid C identifier.  There must be no
  39. #          spaces between the left paren and the name. This name with
  40. #          an "L" prepended becomes the name of the low-level C
  41. #          procedure (the one whose body follows the DEFINE call),
  42. #          and with a "l_" prepended becomes the name of the C
  43. #          interface to the corresponding lisp function (unless an
  44. #          alternate prefix is specified with the -cprefix argument
  45. #          to this script).
  46. #      1.4  a comma (possibly preceeded and/or followed by spaces or
  47. #        tabs)
  48. #      1.5  a lisp type name (like LINT or LGEOM etc) which indicates
  49. #        the type of the lisp object returned by this function.
  50. #      1.6  a comma (possibly preceeded and/or followed by spaces or
  51. #        tabs)
  52. #  
  53. #  2. The rest of the DEFINE call consists of the docstring argument,
  54. #     which must be a single string and may be broken over any number
  55. #     of lines.
  56. #
  57. #  
  58. #  3. The first line of the call to LDECLARE must contain, in this order:
  59. #      1.1. the word LDECLARE
  60. #      1.2. two left parens
  61. #      1.3. a string which becomes the lisp name of the function
  62. #      1.4  a comma (possibly preceeded and/or followed by spaces or
  63. #        tabs)
  64. #      1.5  the word LBEGIN
  65. #      1.6  a comma (possibly preceeded and/or followed by spaces or
  66. #        tabs)
  67. #  
  68. #  4. Intermediate lines of the LDECLARE call must contain one
  69. #     <argspec> per line; where <argspec> is either the word LOPTIONAL
  70. #     or something with the syntax
  71. #  
  72. #      [ modifier, ] ltype, address
  73. #  
  74. #     where modifier is one of LHOLD or LLITERAL, ltype is a lisp type
  75. #     name, and address is the address of a local variable into which
  76. #     the corresponding argument's value is to be loaded.  Any
  77. #     arguments following LOPTIONAL are taken to be optional.
  78. #
  79. #  5. The last line of the LDECLARE call must contain just the string
  80. #     "LEND));" possibly preceeded by spaces or tabs.
  81. #
  82. # This script generates the C interface (consisting of the function
  83. # declaration in OUTFILE.h and the function itself in OUTFILE.c) only
  84. # for functions which use both the DEFINE and LDECLARE macros.  To
  85. # prevent the generation of a C interface for a particular function,
  86. # preceed the word LDECLARE by a comment on the same line, as in:
  87. # 
  88. #
  89. #     /*NOC*/ LDECLARE(("foo, LBEGIN,
  90. # 
  91. # The contents of the comment are irrelvant; its purpose is simply
  92. # to arrange that LDECLARE is not the first thing on its line.
  93.  
  94. cprefix="l_" ;
  95. outfile=""
  96.  
  97. while : ; do
  98.  
  99.   case $1 in
  100.     -cprefix)
  101.     cprefix=$2 ;
  102.     shift 2 ;
  103.     ;;
  104.     -o)
  105.     outfile=$2 ;
  106.     outstem=`basename $outfile`
  107.     shift 2 ;
  108.     ;;
  109.     *)
  110.     break ;
  111.     ;;
  112.   esac
  113.  
  114. done
  115.  
  116. cfile=/tmp/lisp2c.out.c
  117. hfile=/tmp/lisp2c.out.h
  118.  
  119. /bin/rm -f $cfile $hfile
  120.  
  121. # start with an empty .h file in case the awk script below doesn't
  122. # output anything to it:
  123. touch $hfile
  124.  
  125. cat $* |
  126.  
  127. # first turn all parens, semicolons, and commas into spaces
  128. tr '();,' '    ' |
  129.  
  130. # now let awk do its thing
  131. awk '
  132. BEGIN { cprefix="'$cprefix'" ;
  133.     outfile="'$outfile'" ;
  134.     outstem="'$outstem'" ;
  135.     hfile="'$hfile'" ;
  136.     fcount = 0 ;
  137.     inldeclare=0 ;
  138.     type["LINT"]    = "int" ;
  139.     type["LFLOAT"]    = "float" ;
  140.     type["LSTRING"]    = "char *" ;
  141.     type["LLIST"]    = "LList  *" ;
  142.     type["LLOBJECT"]    = "LObject *" ;
  143.     type["LID"]            = "int" ;
  144.     type["LKEYWORD"]    = "int" ;
  145.     type["LSTRINGS"]    = "char *" ;
  146.     type["LGEOM"]    = "GeomStruct *" ;
  147.     type["LCAMERA"]    = "CameraStruct *" ;
  148.     type["LWINDOW"]    = "WindowStruct *" ;
  149.     type["LAP"]        = "ApStruct *" ;
  150.     type["LTRANSFORM"]  = "TransformStruct *" ;
  151.     type["LTRANSFORMN"] = "TmNStruct *" ;
  152.     type["LVOID"]       = "void" ;
  153.     type["LREST"]    = "LList *" ;
  154.     }
  155. $1 == "LDEFINE" {
  156.     fstem = $2 ;        # stem from which function names are built
  157.     ftype = $3 ;        # functions return type
  158.     next ;
  159.     }
  160. $1 == "LDECLARE" {
  161.     name = substr($2,2,length($2)-2) ;    # lisp function name
  162.     inldeclare=1 ;
  163.     lakearg = 0;
  164.     argc = 0 ;
  165.     next
  166.     }
  167. $NF == "LEND" || atend == 1 {
  168.     if (inldeclare) {
  169.     # remember data for this function
  170.     ++fcount;
  171.     cname = cprefix fstem ;
  172.     fstems[fcount] = fstem ;
  173.     cnames[fcount] = cname ;
  174.     names[fcount] = name ;
  175.     # build the declaration
  176.     dec = sprintf "%s %s(", type[ftype], cname ;
  177.     for (i=1; i<=argc; ++i) {
  178.         if (i>1) dec = dec sprintf ", " ;
  179.         if (arg[i] == "LARRAY") {
  180.         dec = dec sprintf "%s *a%1d, int a%1dn", type[basetype[i]], i, i ;
  181.         } else {
  182.         if (type[arg[i]] != "") dec = dec sprintf "%s ", type[arg[i]] ;
  183.         else dec = dec sprintf "??? " ;
  184.         dec = dec sprintf "a%1d", i ;
  185.         }
  186.     }
  187.     dec = dec sprintf ")" ;
  188.     # print the declaration, possibly also in header file
  189.     printf "%s\n", dec ;
  190.     if (outfile != "") printf "%s;\n", dec > hfile ;
  191.     # print the function body
  192.     printf "{\n" ;
  193.     printf "  LObject *val = LEvalFunc(\"%s\",\n", name ;
  194.     for (i=1; i<=argc; ++i) {
  195.         if (arg[i] == "LARRAY") {
  196.         printf "\t\t\t   LARRAY, %s, a%1d, a%1dn,\n", basetype[i], i, i ;
  197.         } else {
  198.         printf "\t\t\t   %s, a%1d,\n", arg[i], i ;
  199.         }
  200.     }
  201.     printf "\t\t\t   LEND);\n"
  202.     if (type[ftype] != "void") {
  203.         printf "  %s retval;\n", type[ftype] ;
  204.         printf "  LFROMOBJ(%s)(val, &retval);\n", ftype ;
  205.     }
  206.     printf "  LFree(val);\n"
  207.     if (type[ftype] != "void") printf "  return retval;\n"
  208.     printf "}\n\n"
  209.     inldeclare=0 ;
  210.     atend = 0;
  211.     next
  212.     }
  213.     }
  214. { if (inldeclare) {
  215.     i = 1;
  216.     while (i <= NF) {
  217.     if ($i == "LLAKE") {
  218.         lakearg = 1; next;
  219.     } else if ($i == "LOPTIONAL") {
  220.         ++i; continue;
  221.     } else if ($i == "LHOLD") {
  222.         ++i; continue;
  223.     } else if ($i == "LLITERAL") {
  224.         ++i; continue;
  225.     } else if ($i == "LARRAY") {
  226.         ++i;
  227.         ++argc ;
  228.         arg[argc] = "LARRAY";
  229.         basetype[argc] = $i;
  230.         next;
  231.     } else if ($i == "LREST") {
  232.         ++argc;
  233.         arg[argc] = $i ;
  234.         atend = 1;
  235.         next ;
  236.     } else {
  237.         ++argc ;
  238.         arg[argc] = $i ;
  239.         next ;
  240.     }
  241.     }
  242.   }
  243. }
  244. END {
  245.     printf "\n" ;
  246.     for (i=1; i<=fcount; ++i) {
  247.     printf "extern LObject *L%s(Lake *, LList *);\n", fstems[i] ;
  248.     }
  249.     printf "\n" ;
  250.     for (i=1; i<=fcount; ++i) {
  251.     printf "extern char H%s[];\n", fstems[i] ;
  252.     }
  253.     printf "\n" ;
  254.     printf "\nvoid %s_init()\n{\n", outstem ;
  255.     for (i=1; i<=fcount; ++i) {
  256.     printf "  LDefun(\"%s\", L%s, H%s);\n", names[i], fstems[i], fstems[i] ;
  257.     }
  258.     printf "}\n\n" ;
  259. }
  260. ' |
  261.  
  262. # and send output to "outfile.c" if -o specified, otherwise
  263. # to standard output
  264. if [ "$outfile" != "" ] ; then
  265.   cat > $cfile ;
  266.  
  267.   if [ -f $cfile ] && cmp $cfile $outfile.c 1>&- 2>&- ; then
  268.     : # no change to $outfile.c
  269.   else
  270.     /bin/rm -f $outfile.c ;
  271.     /bin/mv $cfile $outfile.c
  272.     echo $outfile.c
  273.   fi
  274.  
  275.   if [ -f $hfile ] && cmp $hfile $outfile.h 1>&- 2>&- ; then
  276.     : # no change to $outfile.h
  277.   else
  278.     /bin/rm -f $outfile.h ;
  279.     /bin/mv $hfile $outfile.h
  280.     echo $outfile.h
  281.   fi
  282. else
  283.   cat ;
  284. fi
  285.  
  286. /bin/rm -f $cfile $hfile
  287.